SVM Mac 1/CD-ROM N°1.iso/Utilitaires/Programmation⁄Infos/UCB Logo 3.0/logolib/map

Text File | 1994-04-25 | 320 b | 12 lines | [TEXT/JV01]

to map :map.template [:template.lists] 2
op map1 :template.lists 1
end

to map1 :template.lists :template.number
if emptyp first :template.lists [output first :template.lists]
output combine (apply :map.template firsts :template.lists) ~
               (map1 bfs :template.lists :template.number+1)
end

bury [map map1]